/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_03 / recovery / getdisc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 20 20 | 3e 20 26 2e 52 65 63 6f |.....   |> &.Reco|
|00000010| 76 65 72 79 2e 47 65 74 | 44 69 73 63 0d 00 14 04 |very.Get|Disc....|
|00000020| 0d 00 1e 28 f4 20 28 43 | 29 20 52 69 63 68 61 72 |...(. (C|) Richar|
|00000030| 64 20 41 6e 74 68 6f 6e | 79 20 41 76 65 72 69 6c |d Anthon|y Averil|
|00000040| 6c 2c 20 31 39 38 38 2e | 0d 00 28 04 0d 00 32 4a |l, 1988.|..(...2J|
|00000050| f4 20 20 20 20 20 52 65 | 63 6f 76 65 72 20 74 68 |.     Re|cover th|
|00000060| 65 20 64 69 72 65 63 74 | 6f 72 69 65 73 20 6f 6e |e direct|ories on|
|00000070| 20 61 20 64 69 73 63 20 | 77 69 74 68 20 69 74 73 | a disc |with its|
|00000080| 20 72 6f 6f 74 20 64 69 | 72 65 63 74 6f 72 79 20 | root di|rectory |
|00000090| 77 69 70 65 64 2e 0d 00 | 3c 04 0d 00 46 49 f4 20 |wiped...|<...FI. |
|000000a0| 20 20 20 20 52 75 6e 73 | 20 6f 6e 20 33 31 30 20 |    Runs| on 310 |
|000000b0| 77 69 74 68 20 73 69 7a | 65 73 20 61 74 20 7a 65 |with siz|es at ze|
|000000c0| 72 6f 20 28 65 78 63 65 | 70 74 20 53 63 72 65 65 |ro (exce|pt Scree|
|000000d0| 6e 53 69 7a 65 21 29 2c | 20 61 6e 64 20 61 20 34 |nSize!),| and a 4|
|000000e0| 34 30 2e 0d 00 50 04 0d | 00 5a 08 eb 20 31 38 0d |40...P..|.Z.. 18.|
|000000f0| 00 64 04 0d 00 6e 4b f1 | 20 8a 36 29 3b 27 22 41 |.d...nK.| .6);'"A|
|00000100| 72 63 68 69 6d 65 64 65 | 73 20 64 69 73 63 20 72 |rchimede|s disc r|
|00000110| 65 63 6f 76 65 72 65 72 | 2e 20 28 43 29 20 52 69 |ecoverer|. (C) Ri|
|00000120| 63 68 61 72 64 20 41 6e | 74 68 6f 6e 79 20 41 76 |chard An|thony Av|
|00000130| 65 72 69 6c 6c 2c 20 31 | 39 38 38 2e 22 27 0d 00 |erill, 1|988."'..|
|00000140| 78 84 f1 20 22 54 68 69 | 73 20 70 72 6f 67 72 61 |x.. "Thi|s progra|
|00000150| 6d 20 77 69 6c 6c 20 72 | 65 2d 63 72 65 61 74 65 |m will r|e-create|
|00000160| 20 61 20 64 69 73 63 20 | 74 68 61 74 20 68 61 73 | a disc |that has|
|00000170| 20 68 61 64 20 69 74 73 | 20 72 6f 6f 74 20 28 24 | had its| root ($|
|00000180| 29 20 64 69 72 65 63 74 | 6f 72 79 20 6f 76 65 72 |) direct|ory over|
|00000190| 2d 22 27 22 77 72 69 74 | 74 65 6e 2e 20 43 6f 6e |-"'"writ|ten. Con|
|000001a0| 63 65 70 74 20 62 79 20 | 52 69 63 68 61 72 64 20 |cept by |Richard |
|000001b0| 41 6e 74 68 6f 6e 79 20 | 41 76 65 72 69 6c 6c 2e |Anthony |Averill.|
|000001c0| 22 27 0d 00 82 04 0d 00 | 8c 17 de 20 73 75 72 66 |"'......|... surf|
|000001d0| 61 63 65 25 20 38 30 30 | 2a 31 30 32 34 0d 00 96 |ace% 800|*1024...|
|000001e0| 56 de 20 6e 6f 74 63 6f | 70 79 25 28 31 35 30 29 |V. notco|py%(150)|
|000001f0| 2c 20 64 69 72 65 63 74 | 6f 72 79 25 28 31 35 30 |, direct|ory%(150|
|00000200| 29 2c 20 64 69 72 65 63 | 74 6f 72 79 24 28 31 35 |), direc|tory$(15|
|00000210| 30 29 2c 20 63 6f 70 79 | 6c 69 73 74 25 28 31 35 |0), copy|list%(15|
|00000220| 30 29 2c 20 20 63 6f 70 | 79 6c 69 73 74 24 28 31 |0),  cop|ylist$(1|
|00000230| 35 30 29 0d 00 a0 04 0d | 00 aa 16 44 69 73 63 4f |50).....|...DiscO|
|00000240| 70 25 20 20 20 3d 20 26 | 34 30 32 34 30 0d 00 b4 |p%   = &|40240...|
|00000250| 19 68 75 67 6f 25 20 20 | 20 20 20 3d 20 26 36 46 |.hugo%  |   = &6F|
|00000260| 36 37 37 35 34 38 0d 00 | be 15 4f 53 5f 46 53 43 |677548..|..OS_FSC|
|00000270| 6f 6e 74 72 6f 6c 25 3d | 26 32 39 0d 00 c8 11 4f |ontrol%=|&29....O|
|00000280| 53 5f 46 69 6c 65 25 20 | 20 3d 20 38 0d 00 d2 04 |S_File% | = 8....|
|00000290| 0d 00 dc 13 64 69 72 63 | 6f 75 6e 74 65 72 25 20 |....dirc|ounter% |
|000002a0| 3d 20 30 0d 00 e6 12 63 | 6f 70 79 63 6f 75 6e 74 |= 0....c|opycount|
|000002b0| 65 72 25 3d 30 0d 00 f0 | 04 0d 00 fa 26 e8 20 22 |er%=0...|....&. "|
|000002c0| 45 78 61 6d 69 6e 65 20 | 77 68 69 63 68 20 64 72 |Examine |which dr|
|000002d0| 69 76 65 20 3f 20 22 20 | 64 72 69 76 65 25 27 0d |ive ? " |drive%'.|
|000002e0| 01 04 04 0d 01 0e 45 f2 | 70 72 6f 6d 70 74 28 22 |......E.|prompt("|
|000002f0| 49 6e 73 65 72 74 20 64 | 69 73 63 20 69 6e 20 64 |Insert d|isc in d|
|00000300| 72 69 76 65 20 22 2b c3 | 64 72 69 76 65 25 2b 22 |rive "+.|drive%+"|
|00000310| 20 61 6e 64 20 70 72 65 | 73 73 20 61 6e 79 20 6b | and pre|ss any k|
|00000320| 65 79 20 2e 2e 2e 22 29 | 0d 01 18 04 0d 01 22 0d |ey ...")|......".|
|00000330| f2 6c 6f 61 64 64 69 73 | 63 0d 01 2c 0d f2 66 69 |.loaddis|c..,..fi|
|00000340| 6e 64 64 69 72 73 0d 01 | 36 0e f2 66 69 6e 64 72 |nddirs..|6..findr|
|00000350| 6f 6f 74 73 0d 01 40 10 | f2 64 69 73 70 6c 61 79 |oots..@.|.display|
|00000360| 64 69 72 73 0d 01 4a 04 | 0d 01 54 0f f2 63 72 65 |dirs..J.|..T..cre|
|00000370| 61 74 65 64 69 73 63 0d | 01 5e 04 0d 01 68 05 e0 |atedisc.|.^...h..|
|00000380| 0d 01 72 04 0d 01 7c 0f | dd 20 f2 6c 6f 61 64 64 |..r...|.|. .loadd|
|00000390| 69 73 63 0d 01 86 25 f1 | 20 27 22 4c 6f 61 64 69 |isc...%.| '"Loadi|
|000003a0| 6e 67 20 64 69 73 63 20 | 69 6e 74 6f 20 6d 65 6d |ng disc |into mem|
|000003b0| 6f 72 79 20 2e 2e 2e 22 | 0d 01 90 2e c8 99 20 26 |ory ..."|...... &|
|000003c0| 34 30 32 34 30 2c 30 2c | 31 2c 64 72 69 76 65 25 |40240,0,|1,drive%|
|000003d0| 3c 3c 32 39 2c 73 75 72 | 66 61 63 65 25 2c 38 30 |<<29,sur|face%,80|
|000003e0| 30 2a 31 30 32 34 0d 01 | 9a 11 f1 20 22 46 69 6e |0*1024..|... "Fin|
|000003f0| 69 73 68 65 64 2e 22 0d | 01 a4 05 e1 0d 01 ae 04 |ished.".|........|
|00000400| 0d 01 b8 11 dd 20 f2 63 | 72 65 61 74 65 64 69 73 |..... .c|reatedis|
|00000410| 63 0d 01 c2 32 e8 20 22 | 43 72 65 61 74 65 20 61 |c...2. "|Create a|
|00000420| 20 6e 65 77 20 64 69 73 | 63 20 69 6e 20 77 68 69 | new dis|c in whi|
|00000430| 63 68 20 64 72 69 76 65 | 20 3f 20 22 20 64 72 69 |ch drive| ? " dri|
|00000440| 76 65 25 0d 01 cc 33 e7 | 20 a4 61 73 6b 28 bd 31 |ve%...3.| .ask(.1|
|00000450| 30 2b bd 31 33 2b 22 44 | 72 69 76 65 20 22 2b c3 |0+.13+"D|rive "+.|
|00000460| 64 72 69 76 65 25 2b 22 | 2e 20 4f 4b 20 3f 22 29 |drive%+"|. OK ?")|
|00000470| 3d a3 20 8c 20 e1 0d 01 | d6 39 e7 20 a4 61 73 6b |=. . ...|.9. .ask|
|00000480| 28 22 44 6f 20 79 6f 75 | 20 77 69 73 68 20 74 6f |("Do you| wish to|
|00000490| 20 66 6f 72 6d 61 74 20 | 74 68 69 73 20 64 69 73 | format |this dis|
|000004a0| 63 20 28 59 2f 4e 29 20 | 3f 22 29 3d b9 20 8c 0d |c (Y/N) |?")=. ..|
|000004b0| 01 e0 1f c8 99 20 35 2c | 22 46 6f 72 6d 61 74 20 |..... 5,|"Format |
|000004c0| 22 2b c3 64 72 69 76 65 | 25 2b 22 20 44 22 0d 01 |"+.drive|%+" D"..|
|000004d0| ea 05 cc 0d 01 f4 37 e7 | 20 a4 61 73 6b 28 22 57 |......7.| .ask("W|
|000004e0| 69 70 65 20 61 6c 6c 20 | 66 69 6c 65 73 20 6f 6e |ipe all |files on|
|000004f0| 20 64 65 73 74 2e 20 64 | 69 73 63 20 28 59 2f 4e | dest. d|isc (Y/N|
|00000500| 29 20 3f 20 22 29 3d b9 | 20 8c 0d 01 fe 2f c8 99 |) ? ")=.| ..../..|
|00000510| 20 22 58 4f 53 5f 43 4c | 49 22 2c 22 57 49 50 45 | "XOS_CL|I","WIPE|
|00000520| 20 3a 22 2b c3 64 72 69 | 76 65 25 2b 22 2e 24 2e | :"+.dri|ve%+".$.|
|00000530| 2a 20 46 52 7e 43 7e 56 | 22 0d 02 08 05 cd 0d 02 |* FR~C~V|".......|
|00000540| 12 05 cd 0d 02 1c 24 e7 | 20 a4 61 73 6b 28 22 43 |......$.| .ask("C|
|00000550| 6f 6e 74 69 6e 75 65 20 | 28 59 2f 4e 29 20 3f 22 |ontinue |(Y/N) ?"|
|00000560| 29 3d a3 20 8c 20 e1 0d | 02 26 04 0d 02 30 18 70 |)=. . ..|.&...0.p|
|00000570| 72 65 24 3d 22 3a 22 2b | c3 64 72 69 76 65 25 2b |re$=":"+|.drive%+|
|00000580| 22 2e 22 0d 02 3a 0a 2a | 4e 4f 44 49 52 0d 02 4e |"."..:.*|NODIR..N|
|00000590| 1c c8 99 20 35 2c 22 44 | 49 53 4d 4f 55 4e 54 20 |... 5,"D|ISMOUNT |
|000005a0| 22 2b c3 64 72 69 76 65 | 25 0d 02 58 19 c8 99 20 |"+.drive|%..X... |
|000005b0| 35 2c 22 4d 4f 55 4e 54 | 20 22 2b c3 64 72 69 76 |5,"MOUNT| "+.driv|
|000005c0| 65 25 0d 02 62 1c e3 20 | 72 61 25 3d 30 20 b8 20 |e%..b.. |ra%=0 . |
|000005d0| 63 6f 70 79 63 6f 75 6e | 74 65 72 25 2d 31 0d 02 |copycoun|ter%-1..|
|000005e0| 6c 0d 73 70 61 63 65 73 | 25 3d 32 0d 02 76 25 f1 |l.spaces|%=2..v%.|
|000005f0| 20 a4 69 6e 64 65 6e 74 | 3b 22 44 69 72 20 3a 20 | .indent|;"Dir : |
|00000600| 22 2b 63 6f 70 79 6c 69 | 73 74 24 28 72 61 25 29 |"+copyli|st$(ra%)|
|00000610| 0d 02 80 29 c8 99 20 38 | 2c 38 2c 70 72 65 24 2b |...).. 8|,8,pre$+|
|00000620| 22 24 2e 22 2b 63 6f 70 | 79 6c 69 73 74 24 28 72 |"$."+cop|ylist$(r|
|00000630| 61 25 29 2c 30 2c 30 2c | 30 0d 02 8a 25 c8 99 20 |a%),0,0,|0...%.. |
|00000640| 26 32 39 2c 30 2c 70 72 | 65 24 2b 22 24 2e 22 2b |&29,0,pr|e$+"$."+|
|00000650| 63 6f 70 79 6c 69 73 74 | 24 28 72 61 25 29 0d 02 |copylist|$(ra%)..|
|00000660| 94 1c f2 65 78 61 6d 69 | 6e 65 28 63 6f 70 79 6c |...exami|ne(copyl|
|00000670| 69 73 74 25 28 72 61 25 | 29 29 0d 02 9e 05 ed 0d |ist%(ra%|))......|
|00000680| 02 a8 05 e1 0d 02 b2 04 | 0d 02 bc 18 dd 20 f2 65 |........|..... .e|
|00000690| 78 61 6d 69 6e 65 28 64 | 69 72 61 64 64 72 25 29 |xamine(d|iraddr%)|
|000006a0| 0d 02 c6 15 ea 20 63 6f | 75 6e 74 65 72 25 2c 63 |..... co|unter%,c|
|000006b0| 6f 75 6e 74 25 0d 02 d0 | 0e 73 70 61 63 65 73 25 |ount%...|.spaces%|
|000006c0| 2b 3d 32 0d 02 da 0c 63 | 6f 75 6e 74 25 3d 30 0d |+=2....c|ount%=0.|
|000006d0| 02 e4 20 63 6f 75 6e 74 | 65 72 25 3d 64 69 72 61 |.. count|er%=dira|
|000006e0| 64 64 72 25 2b 35 2b 73 | 75 72 66 61 63 65 25 0d |ddr%+5+s|urface%.|
|000006f0| 02 ee 20 c8 95 20 3f 63 | 6f 75 6e 74 65 72 25 3c |.. .. ?c|ounter%<|
|00000700| 3e 30 20 80 20 63 6f 75 | 6e 74 25 3c 3d 37 37 0d |>0 . cou|nt%<=77.|
|00000710| 02 f8 22 66 69 6c 65 24 | 3d a4 6d 61 6b 65 73 74 |.."file$|=.makest|
|00000720| 72 69 6e 67 28 63 6f 75 | 6e 74 65 72 25 2c 31 30 |ring(cou|nter%,10|
|00000730| 29 0d 03 02 15 6c 6f 61 | 64 25 3d 63 6f 75 6e 74 |)....loa|d%=count|
|00000740| 65 72 25 21 31 30 0d 03 | 0c 15 65 78 65 63 25 3d |er%!10..|..exec%=|
|00000750| 63 6f 75 6e 74 65 72 25 | 21 31 34 0d 03 16 14 6c |counter%|!14....l|
|00000760| 65 6e 25 3d 63 6f 75 6e | 74 65 72 25 21 31 38 0d |en%=coun|ter%!18.|
|00000770| 03 20 24 73 63 74 25 3d | 28 28 63 6f 75 6e 74 65 |. $sct%=|((counte|
|00000780| 72 25 21 32 32 29 80 20 | 26 46 46 46 46 46 46 29 |r%!22). |&FFFFFF)|
|00000790| 3c 3c 38 0d 03 2a 1c 74 | 79 70 65 25 3d 28 63 6f |<<8..*.t|ype%=(co|
|000007a0| 75 6e 74 65 72 25 3f 32 | 35 29 20 80 20 25 31 0d |unter%?2|5) . %1.|
|000007b0| 03 34 0e c8 8e 20 74 79 | 70 65 25 20 ca 0d 03 3e |.4... ty|pe% ...>|
|000007c0| 07 c9 20 30 0d 03 48 1c | f1 20 a4 69 6e 64 65 6e |.. 0..H.|. .inden|
|000007d0| 74 3b 22 44 69 72 20 3a | 20 22 2b 66 69 6c 65 24 |t;"Dir :| "+file$|
|000007e0| 0d 03 5c 16 c8 99 20 38 | 2c 38 2c 66 69 6c 65 24 |..\... 8|,8,file$|
|000007f0| 2c 30 2c 30 2c 30 0d 03 | 66 12 c8 99 20 26 32 39 |,0,0,0..|f... &29|
|00000800| 2c 30 2c 66 69 6c 65 24 | 0d 03 70 12 f2 65 78 61 |,0,file$|..p..exa|
|00000810| 6d 69 6e 65 28 73 63 74 | 25 29 0d 03 84 05 7f 0d |mine(sct|%)......|
|00000820| 03 8e 1f 74 79 70 65 24 | 3d c3 7e 28 28 6c 6f 61 |...type$|=.~((loa|
|00000830| 64 25 3e 3e 38 29 20 80 | 20 26 46 46 46 29 0d 03 |d%>>8) .| &FFF)..|
|00000840| 98 2f f1 20 a4 69 6e 64 | 65 6e 74 3b 22 46 69 6c |./. .ind|ent;"Fil|
|00000850| 65 3a 20 22 2b 66 69 6c | 65 24 2b 22 2e 20 54 79 |e: "+fil|e$+". Ty|
|00000860| 70 65 20 3a 20 26 22 2b | 74 79 70 65 24 0d 03 a2 |pe : &"+|type$...|
|00000870| 3d c8 99 20 38 2c 30 2c | 66 69 6c 65 24 2c 6c 6f |=.. 8,0,|file$,lo|
|00000880| 61 64 25 2c 65 78 65 63 | 25 2c 73 63 74 25 2b 73 |ad%,exec|%,sct%+s|
|00000890| 75 72 66 61 63 65 25 2c | 73 63 74 25 2b 73 75 72 |urface%,|sct%+sur|
|000008a0| 66 61 63 65 25 2b 6c 65 | 6e 25 0d 03 ac 05 cb 0d |face%+le|n%......|
|000008b0| 03 b6 10 63 6f 75 6e 74 | 65 72 25 2b 3d 32 36 0d |...count|er%+=26.|
|000008c0| 03 c0 0d 63 6f 75 6e 74 | 25 2b 3d 31 0d 03 ca 05 |...count|%+=1....|
|000008d0| ce 0d 03 d4 10 c8 99 20 | 26 32 39 2c 30 2c 22 5e |....... |&29,0,"^|
|000008e0| 22 0d 03 de 0e 73 70 61 | 63 65 73 25 2d 3d 32 0d |"....spa|ces%-=2.|
|000008f0| 03 e8 05 e1 0d 03 f2 04 | 0d 03 fc 0f dd 20 f2 66 |........|..... .f|
|00000900| 69 6e 64 64 69 72 73 0d | 04 06 09 ea 20 72 61 25 |inddirs.|.... ra%|
|00000910| 0d 04 10 1e e3 20 72 61 | 25 3d 26 43 30 30 20 b8 |..... ra|%=&C00 .|
|00000920| 20 26 43 37 43 30 30 20 | 88 20 26 34 30 30 0d 04 | &C7C00 |. &400..|
|00000930| 1a 16 61 64 64 72 25 3d | 72 61 25 2b 73 75 72 66 |..addr%=|ra%+surf|
|00000940| 61 63 65 25 0d 04 24 15 | e7 20 61 64 64 72 25 21 |ace%..$.|. addr%!|
|00000950| 31 3d 68 75 67 6f 25 20 | 8c 0d 04 2e 21 64 69 72 |1=hugo% |....!dir|
|00000960| 65 63 74 6f 72 79 25 28 | 64 69 72 63 6f 75 6e 74 |ectory%(|dircount|
|00000970| 65 72 25 29 20 3d 20 72 | 61 25 0d 04 38 0d 72 61 |er%) = r|a%..8.ra|
|00000980| 25 2b 3d 26 34 30 30 0d | 04 42 38 64 69 72 65 63 |%+=&400.|.B8direc|
|00000990| 74 6f 72 79 24 28 64 69 | 72 63 6f 75 6e 74 65 72 |tory$(di|rcounter|
|000009a0| 25 29 20 3d 20 a4 6d 61 | 6b 65 73 74 72 69 6e 67 |%) = .ma|kestring|
|000009b0| 28 61 64 64 72 25 2b 26 | 37 44 44 2c 31 30 29 0d |(addr%+&|7DD,10).|
|000009c0| 04 4c 12 64 69 72 63 6f | 75 6e 74 65 72 25 2b 3d |.L.dirco|unter%+=|
|000009d0| 31 0d 04 56 05 cd 0d 04 | 60 05 ed 0d 04 6a 05 e1 |1..V....|`....j..|
|000009e0| 0d 04 74 04 0d 04 7e 12 | dd 20 f2 64 69 73 70 6c |..t...~.|. .displ|
|000009f0| 61 79 64 69 72 73 0d 04 | 88 09 ea 20 72 61 25 0d |aydirs..|... ra%.|
|00000a00| 04 92 1b e3 20 72 61 25 | 3d 30 20 b8 20 64 69 72 |.... ra%|=0 . dir|
|00000a10| 63 6f 75 6e 74 65 72 25 | 2d 31 0d 04 9c 17 e7 20 |counter%|-1..... |
|00000a20| 6e 6f 74 63 6f 70 79 25 | 28 72 61 25 29 3d a3 20 |notcopy%|(ra%)=. |
|00000a30| 8c 0d 04 a6 2b 63 6f 70 | 79 6c 69 73 74 25 28 63 |....+cop|ylist%(c|
|00000a40| 6f 70 79 63 6f 75 6e 74 | 65 72 25 29 3d 64 69 72 |opycount|er%)=dir|
|00000a50| 65 63 74 6f 72 79 25 28 | 72 61 25 29 0d 04 b0 2b |ectory%(|ra%)...+|
|00000a60| 63 6f 70 79 6c 69 73 74 | 24 28 63 6f 70 79 63 6f |copylist|$(copyco|
|00000a70| 75 6e 74 65 72 25 29 3d | 64 69 72 65 63 74 6f 72 |unter%)=|director|
|00000a80| 79 24 28 72 61 25 29 0d | 04 ba 13 63 6f 70 79 63 |y$(ra%).|...copyc|
|00000a90| 6f 75 6e 74 65 72 25 2b | 3d 31 0d 04 c4 05 cd 0d |ounter%+|=1......|
|00000aa0| 04 ce 05 ed 0d 04 d8 05 | e1 0d 04 e2 04 0d 04 ec |........|........|
|00000ab0| 14 dd 20 f2 70 72 6f 6d | 70 74 28 74 65 78 74 24 |.. .prom|pt(text$|
|00000ac0| 29 0d 04 f6 0b f1 20 74 | 65 78 74 24 0d 05 00 0d |)..... t|ext$....|
|00000ad0| c8 99 20 36 2c 32 31 2c | 30 0d 05 0a 09 e7 20 a5 |.. 6,21,|0..... .|
|00000ae0| 3a cd 0d 05 14 05 e1 0d | 05 1e 04 0d 05 28 20 dd |:.......|.....( .|
|00000af0| 20 a4 6d 61 6b 65 73 74 | 72 69 6e 67 28 61 64 64 | .makest|ring(add|
|00000b00| 72 25 2c 6d 61 78 6c 65 | 6e 25 29 0d 05 32 14 ea |r%,maxle|n%)..2..|
|00000b10| 20 73 74 72 24 2c 63 68 | 72 25 2c 63 6e 74 25 0d | str$,ch|r%,cnt%.|
|00000b20| 05 3c 0b 73 74 72 24 3d | 22 22 0d 05 46 0b 63 68 |.<.str$=|""..F.ch|
|00000b30| 72 25 3d 36 35 0d 05 50 | 0a 63 6e 74 25 3d 30 0d |r%=65..P|.cnt%=0.|
|00000b40| 05 5a 28 c8 95 20 63 68 | 72 25 3e 33 32 20 80 20 |.Z(.. ch|r%>32 . |
|00000b50| 63 68 72 25 3c 32 35 36 | 20 80 20 63 6e 74 25 3c |chr%<256| . cnt%<|
|00000b60| 6d 61 78 6c 65 6e 25 0d | 05 64 13 63 68 72 25 3d |maxlen%.|.d.chr%=|
|00000b70| 61 64 64 72 25 3f 63 6e | 74 25 0d 05 6e 26 e7 20 |addr%?cn|t%..n&. |
|00000b80| 63 68 72 25 3e 33 32 20 | 80 20 63 68 72 25 3c 32 |chr%>32 |. chr%<2|
|00000b90| 35 36 20 8c 20 73 74 72 | 24 2b 3d bd 63 68 72 25 |56 . str|$+=.chr%|
|00000ba0| 0d 05 78 0b 63 6e 74 25 | 2b 3d 31 0d 05 82 05 ce |..x.cnt%|+=1.....|
|00000bb0| 0d 05 8c 09 3d 73 74 72 | 24 0d 05 96 04 0d 05 a0 |....=str|$.......|
|00000bc0| 10 dd 20 f2 66 69 6e 64 | 72 6f 6f 74 73 0d 05 aa |.. .find|roots...|
|00000bd0| 0e ea 20 72 61 25 2c 72 | 61 32 25 0d 05 b4 1c e3 |.. ra%,r|a2%.....|
|00000be0| 20 64 69 72 25 3d 30 20 | b8 20 64 69 72 63 6f 75 | dir%=0 |. dircou|
|00000bf0| 6e 74 65 72 25 2d 31 0d | 05 be 24 74 61 64 64 72 |nter%-1.|..$taddr|
|00000c00| 25 3d 64 69 72 65 63 74 | 6f 72 79 25 28 64 69 72 |%=direct|ory%(dir|
|00000c10| 25 29 2b 73 75 72 66 61 | 63 65 25 0d 05 c8 0a 65 |%)+surfa|ce%....e|
|00000c20| 6e 64 25 3d a3 0d 05 d2 | 11 65 6e 64 63 6f 75 6e |nd%=....|.endcoun|
|00000c30| 74 65 72 25 3d 30 0d 05 | dc 10 e3 20 72 61 25 3d |ter%=0..|... ra%=|
|00000c40| 30 20 b8 20 37 39 0d 05 | e6 1d 61 64 64 72 25 3d |0 . 79..|..addr%=|
|00000c50| 28 28 72 61 25 2a 32 36 | 29 2b 35 2b 74 61 64 64 |((ra%*26|)+5+tadd|
|00000c60| 72 25 29 0d 05 f0 30 e7 | 20 3f 61 64 64 72 25 3d |r%)...0.| ?addr%=|
|00000c70| 30 20 80 20 65 6e 64 25 | 3d a3 20 8c 20 65 6e 64 |0 . end%|=. . end|
|00000c80| 25 3d b9 3a 65 6e 64 63 | 6f 75 6e 74 65 72 25 3d |%=.:endc|ounter%=|
|00000c90| 72 61 25 0d 05 fa 05 ed | 0d 06 04 20 e7 20 65 6e |ra%.....|... . en|
|00000ca0| 64 25 3d a3 20 8c 20 65 | 6e 64 63 6f 75 6e 74 65 |d%=. . e|ndcounte|
|00000cb0| 72 25 3d 72 61 25 2d 31 | 0d 06 0e 15 e7 20 65 6e |r%=ra%-1|..... en|
|00000cc0| 64 63 6f 75 6e 74 65 72 | 25 3e 30 20 8c 0d 06 18 |dcounter|%>0 ....|
|00000cd0| 1b e3 20 72 61 25 3d 30 | 20 b8 20 65 6e 64 63 6f |.. ra%=0| . endco|
|00000ce0| 75 6e 74 65 72 25 2d 31 | 0d 06 22 1d 61 64 64 72 |unter%-1|..".addr|
|00000cf0| 25 3d 28 28 72 61 25 2a | 32 36 29 2b 35 2b 74 61 |%=((ra%*|26)+5+ta|
|00000d00| 64 64 72 25 29 0d 06 2c | 1c e3 20 72 61 32 25 3d |ddr%)..,|.. ra2%=|
|00000d10| 30 20 b8 20 64 69 72 63 | 6f 75 6e 74 65 72 25 2d |0 . dirc|ounter%-|
|00000d20| 31 0d 06 36 32 e7 20 61 | 64 64 72 25 21 32 31 3d |1..62. a|ddr%!21=|
|00000d30| 64 69 72 65 63 74 6f 72 | 79 25 28 72 61 32 25 29 |director|y%(ra2%)|
|00000d40| 20 8c 20 6e 6f 74 63 6f | 70 79 25 28 72 61 32 25 | . notco|py%(ra2%|
|00000d50| 29 3d b9 0d 06 40 05 ed | 0d 06 4a 05 ed 0d 06 54 |)=...@..|..J....T|
|00000d60| 05 cd 0d 06 5e 05 ed 0d | 06 68 05 e1 0d 06 72 04 |....^...|.h....r.|
|00000d70| 0d 06 7c 11 dd 20 a4 61 | 73 6b 28 74 65 78 74 24 |..|.. .a|sk(text$|
|00000d80| 29 0d 06 86 0c f1 20 27 | 74 65 78 74 24 0d 06 90 |)..... '|text$...|
|00000d90| 0b 74 65 78 74 24 3d be | 0d 06 9a 0e c8 8e 20 74 |.text$=.|...... t|
|00000da0| 65 78 74 24 20 ca 0d 06 | a4 0d c9 20 22 59 22 2c |ext$ ...|... "Y",|
|00000db0| 22 79 22 0d 06 ae 06 3d | b9 0d 06 b8 05 7f 0d 06 |"y"....=|........|
|00000dc0| c2 06 3d a3 0d 06 cc 05 | cb 0d 06 d6 04 0d 06 e0 |..=.....|........|
|00000dd0| 0d dd 20 a4 69 6e 64 65 | 6e 74 0d 06 ea 12 3d c4 |.. .inde|nt....=.|
|00000de0| 73 70 61 63 65 73 25 2c | bd 33 32 29 0d ff       |spaces%,|.32)..  |
+--------+-------------------------+-------------------------+--------+--------+